(view-mode-disable): If buffer-read-only is nil,

don't change it.

diff --git a/lisp/view.el b/lisp/view.el
index 8ac7a1397131accfe67c1b920e800ad8f332c2dd..61c1ddf9a00838315d83d5e6dd2306c1dbf16872 100644 (file)
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -456,8 +456,9 @@ Entry to view-mode runs the normal hook `view-mode-hook'."
   (and view-overlay (delete-overlay view-overlay))
   (force-mode-line-update)
   (setq view-mode nil
-       Helper-return-blurb view-old-Helper-return-blurb
-       buffer-read-only view-old-buffer-read-only))
+       Helper-return-blurb view-old-Helper-return-blurb)
+  (if buffer-read-only
+      (setq buffer-read-only view-old-buffer-read-only)))
 
 ;;;###autoload
 (defun view-mode-enter (&optional return-to exit-action) "\